Load and counts file
oriCountsFile <- read.table(file = fileCounts)
countsFile <- oriCountsFile
countsFile <- janitor::row_to_names(countsFile, row_number=1)
names(countsFile)[1] <- "miR"
head(countsFile)
countsFile$miR <- str_extract(countsFile$miR, "[^|]+")
countsFile